home *** CD-ROM | disk | FTP | other *** search
/ Aminet 20 / Aminet 20 (1997)(GTI - Schatztruhe)[!][Aug 1997].iso / Aminet / comm / www / CountryCodes.lha / countrycodes / awebextractsuffix.rexx next >
OS/2 REXX Batch file  |  1997-06-22  |  2KB  |  60 lines
  1. /* 
  2.   Program: AWebExtractSuffix.rexx
  3.   Purpose: Extract suffix from a www address obtained from Aweb and feed it
  4.            to the CountryCodes program. 
  5.   Author : Paul Kolenbrander (paul@serena.iaehv.nl)
  6.   Version: 1.0
  7.   Reqs   : CountryCode 1.0 or higher and RexxMast must be running.
  8. */
  9.  
  10. OPTIONS RESULTS                             /* enable return codes      */
  11.                                             /* Get AWeb's Arexx Port    */
  12. ports = SHOW('P')
  13.    PARSE VAR ports dummy 'AWEB.' portnr .   /* note trailing period!    */
  14.    ADDRESS VALUE 'AWEB.' || portnr
  15.    'GET ACTIVEPORT'
  16. ADDRESS VALUE RESULT 
  17.  
  18. GET URL
  19. MAILADRES = RESULT
  20.  
  21. ports = SHOW('P')                           /* Get CoCo ARexx port      */
  22.    PARSE VAR ports dummy 'COCO' portnr .    /* note trailing period!    */
  23.    ADDRESS VALUE 'COCO' || portnr
  24.  
  25. /* Optionally bring CountryCodes Window to front and activate it        */
  26. WINDOW FRONT
  27. WINDOW ACTIVATE
  28.  
  29. /* Check if it's a http:// (www) address)                               */
  30. IF (UPPER(LEFT(MAILADRES,7)) == "HTTP://")
  31. THEN DO                                     /* found a WWW address      */
  32.    MAILADRES = RIGHT(MAILADRES, LENGTH(MAILADRES) - 7)
  33.    MAILADRES = LEFT(MAILADRES, POS("/",MAILADRES) - 1)
  34.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  35. END
  36.  
  37. /* Check if it's a file:// (local address)                              */
  38. IF (UPPER(LEFT(MAILADRES,7)) == "FILE://")
  39. THEN DO                                     /* found a WWW address      */
  40.    LOCATE XXXXX                             /* Local adres. No suffix   */
  41. END
  42.  
  43. /* Check if it's suffix.domain!user or user@domain.suffix format        */
  44. IF (POS("!",MAILADRES) ~=0)
  45. THEN DO                                     /* ! (bangpath) address     */
  46.    MAILADRES = LEFT(MAILADRES,POS("!",MAILADRES) - 1)
  47.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  48. END
  49.  
  50. IF (POS("@",MAILADRES) ~=0)
  51. THEN DO                                     /* @ type address           */
  52.    LOCATE RIGHT(MAILADRES, LENGTH(MAILADRES) - LASTPOS(".",MAILADRES))
  53. END
  54.  
  55. /* Now wait 5 seconds and push the CountryCodes window back             */
  56. ADDRESS COMMAND 'C:WAIT 5 secs'
  57. WINDOW BACK
  58.  
  59. EXIT
  60.